% V20210224 - 8.7.13 Sortable Listview Full Example

INCLUDE "GW.bas"

mypage = GW_NEW_PAGE()

ARRAY.LOAD veggies$[], "~Salad", "Broccoli", "Tomatoes", "Carrots", "Beans", "Eggplant"

lv = GW_ADD_LISTVIEW(mypage, veggies$[])

GW_ADD_BUTTON(mypage, "Done!", "GO")

GW_RENDER(mypage)

% Wait for user action.
r$ = GW_WAIT_ACTION$()

IF r$ = "BACK" THEN END

IF GW_LISTVIEW_CHANGED(lv) THEN
 PRINT "Original array:"
 DEBUG.ON
 DEBUG.DUMP.ARRAY veggies$[]
 PRINT "Re-arranged by user:"
 order$ = GW_GET_LISTVIEW_ORDER$(lv)
 PRINT "Order: " + order$
 GW_REORDER_ARRAY(veggies$[], order$)
 DEBUG.DUMP.ARRAY veggies$[]
ELSE
 PRINT "No change!"
END IF